home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / gs_devcs.ps < prev    next >
Encoding:
Text File  |  2002-08-22  |  5.1 KB  |  208 lines
  1. %    Copyright (C) 2002 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_devcs.ps,v 1.1 2002/08/22 07:12:28 henrys Exp $
  17. % Device-specific color space method dictionaries.
  18.  
  19. %
  20. % This file implements the method dictionaries for the Device-specific
  21. % color spaces. See gs_cspace.ps for information.
  22. %
  23. % Note that, because these color spaces are parameter-less, no color
  24. % space validation is required: if we can get to the color space methods,
  25. % we know the color space is legitimate.
  26. %
  27. % The colorspace substitution routines for these color spaces
  28. % (cs_substitute) will fail in a Level 1 system, but this is not a
  29. % problem as .getuseciecolor will always return false for such systems.
  30. %
  31. .currentglobal true .setglobal
  32. .cspace_util begin
  33.  
  34. %
  35. %   <r>  <g>  <b>   rgb_2_gray   <gray>
  36. %
  37. % Convert RGB colors to gray. This includes a special check for
  38. % r == g == b, and avoids roundoff error if this is the case.
  39. %
  40. /rgb_2_gray
  41.   {
  42.     3 copy 1 index eq 3 1 roll eq and
  43.       { pop pop }
  44.       { .11 mul exch .59 mul add exch .3 mul add }
  45.     ifelse
  46.   }
  47. bind def
  48.  
  49.  
  50. colorspacedict
  51.  
  52. dup
  53. /DeviceGray
  54.   mark
  55.     /cs_potential_indexed_base true
  56.     /cs_potential_pattern_base true
  57.     /cs_potential_alternate true
  58.     /cs_potential_icc_alternate true
  59.     /cs_get_ncomps //ncomps_1
  60.     /cs_get_range  //get_range_1
  61.     /cs_get_default_color { pop 0 } bind
  62.     /cs_get_currentgray //pop_1
  63.     /cs_get_currentrgb { pop dup dup } bind
  64.     /cs_get_currentcmyk { pop 1 exch sub 0 0 0 4 -1 roll } bind
  65.     /cs_validate {}
  66.  
  67.     /cs_substitute
  68.       {
  69.         .getuseciecolor
  70.           { /DefaultGray /ColorSpace findresource }
  71.           { dup }
  72.         ifelse
  73.       }
  74.     bind
  75.  
  76.     /cs_prepare {}
  77.     /cs_install { pop 0 .setdevcspace } bind
  78.     /cs_prepare_color //validate_1
  79.     /cs_complete_setcolor //pop_1
  80.   .dicttomark
  81. put
  82.  
  83.  
  84. /DeviceRGB
  85.   mark
  86.     /cs_potential_indexed_base true
  87.     /cs_potential_pattern_base true
  88.     /cs_potential_alternate true
  89.     /cs_potential_icc_alternate true
  90.     /cs_get_ncomps //ncomps_3
  91.     /cs_get_range  //get_range_3
  92.     /cs_get_default_color { pop 0 0 0 } bind
  93.     /cs_get_currentgray { pop //rgb_2_gray exec } bind
  94.     /cs_get_currentrgb //pop_1
  95.  
  96.     % to convert to cmyk use blackgeneration and undercolorremoval
  97.     /cs_get_currentcmyk
  98.       {
  99.         pop
  100.  
  101.         % convert to subtractive (CMY) color space
  102.         3
  103.           { 1 exch sub 3 1 roll }
  104.         repeat
  105.  
  106.         % find the minimum (initial k component)
  107.         3 copy
  108.         2
  109.           {
  110.             2 copy gt
  111.               { exch }
  112.             if
  113.             pop
  114.           }
  115.         repeat
  116.  
  117.         % apply undercolorremoval
  118.         dup 5 1 roll currentundercolorremoval exec 4 1 roll
  119.         3
  120.           { 3 index sub //bound_0_1 exec 3 1 roll }
  121.         repeat
  122.  
  123.         % apply blackgeneration
  124.         5 3 roll pop currentblackgeneration exec //bound_0_1 exec
  125.       }
  126.     bind
  127.  
  128.     /cs_validate {}
  129.  
  130.     /cs_substitute
  131.       {
  132.         .getuseciecolor
  133.           { /DefaultRGB /ColorSpace findresource }
  134.           { dup }
  135.         ifelse
  136.       }
  137.     bind
  138.  
  139.     /cs_prepare {}
  140.     /cs_install { pop 1 .setdevcspace } bind
  141.     /cs_prepare_color //validate_3
  142.     /cs_complete_setcolor //pop_1
  143.   .dicttomark
  144. put
  145.  
  146. end     % .cspace_util
  147. .setglobal
  148.  
  149.  
  150. % Only create the DeviceCMYK color space if setcolorscreen is present
  151. /setcolorscreen where
  152.   { pop }
  153.   { currentfile closefile }
  154. ifelse
  155.  
  156.  
  157. .currentglobal true .setglobal
  158. .cspace_util begin
  159.  
  160. colorspacedict
  161. /DeviceCMYK
  162.   mark
  163.     /cs_potential_indexed_base true
  164.     /cs_potential_pattern_base true
  165.     /cs_potential_alternate true
  166.     /cs_potential_icc_alternate true
  167.     /cs_get_ncomps //ncomps_4
  168.     /cs_get_range  //get_range_4
  169.     /cs_get_default_color { pop 0 0 0 1 } bind
  170.  
  171.     /cs_get_currentgray
  172.       { pop 4 1 roll //rgb_2_gray exec add 1 exch sub //bound_0_1 exec }
  173.     bind
  174.  
  175.     /cs_get_currentrgb 
  176.       {
  177.         pop
  178.         4 1 roll 3
  179.           { 3 index add  1 exch sub //bound_0_1 exec 3 1 roll }
  180.         repeat
  181.         4 -1 roll pop
  182.       }
  183.     bind
  184.  
  185.     /cs_get_currentcmyk //pop_1
  186.  
  187.     /cs_validate {}
  188.  
  189.     /cs_substitute
  190.       {
  191.         .getuseciecolor
  192.           { /DefaultCMYK /ColorSpace findresource }
  193.           { dup }
  194.         ifelse
  195.       }
  196.     bind
  197.  
  198.     /cs_prepare {}
  199.     /cs_install { pop 2 .setdevcspace } bind
  200.     /cs_prepare_color //validate_4
  201.     /cs_complete_setcolor //pop_1
  202.   .dicttomark
  203. put
  204.  
  205. end     % .cspace_util
  206. .setglobal
  207.  
  208.